
local thevars sblazy sblwlka sblwcoa uentrjb bennent prtsick gincdif_n smdfslv_n dfincac gvjbevn gvslvue gvslvol gvhlthc gvpdlwk gvcldcr
polychoric `thevars'
mat polychR = r(R)
forvalues i=1/`: word count `thevars' ' {
forvalues j=1/`i' {
local setcor `setcor' `=polychR[`i',`j']'
}
if `i' < `: word count `thevars' ' local setcor `setcor' \
}
local N = _N
clear
ssd init `thevars'
ssd set obs `N'
ssd set cor `setcor'
